100 POKE53280,0:POKE53281,0:PRINT"[147]"
130 :
140 POKE55,0:POKE56,64:CLR:A$=""
142 DV=PEEK(186):IFDV<8THENDV=8
145 GOSUB60000
155 DEF FND(I)=20-(LEN(AN$(X,I))/2):DIM AN$(9,20)
160 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
170 SYS57812"PACKAGE.O",DV,0:POKE780,0:POKE781,80:POKE782,195:SYS65493
180 REM SYS57812"GQTITLE.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
190 REM POKE251,64:POKE252,224:POKE253,204:SYS51456
195 REM POKE252,224:POKE253,204:SYS51459
200 IP=50000:UNPACK=51456:HGR=51459
210 PS=50006:BA=50009
220 OPEN2,DV,2,"LS TEXT,P,R"
222 J=1:K=0:FORI=0TO1:SYSIP,2,40:I=ST
224 IFA$="*"THENJ=J+1:K=0:GOTO228
226 K=K+1:AN$(J,K)=A$
228 NEXT:CLOSE2
240 FORX=1TO8:R$(X)=CHR$(48+X)+".SHP"
250 NEXT
270 FORX=1TO8
280 GOSUB1820
290 SYS57812R$(X),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
310 GOSUB1920:IFA$="Q"ORA$="[209]"THENGOSUB1250
312 GOSUB2000
340 POKE198,0:KK=0
360 KK=KK+1:GETA$:IFA$=""ANDKK<1500THEN360
370 IFA$="Q"ORA$="[209]"THENGOSUB1250
380 IFA$=""ORA$="[145]"THENGOSUB9010:GOTO340
420 SYSHGR:PRINT"[147]":POKE198,0:NEXTX
430 GOTO270
1250 O=PEEK(53270)AND16
1255 IFOTHENSYS51459
1260 POKE53281,0:POKE53280,0
1270 PRINT"[147][154]  [193]RE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
1280 POKE198,0:WAIT198,1:GETAG$
1290 IFAG$="Y"ORAG$="[217]"THEN1330
1295 IFOTHENSYS51459
1300 RETURN
1320 REM QUIT
1330 FORI=8TO9:OPEN15,I,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1340 IFER=63THENDV=I:I=9:NEXT:GOTO1350
1345 NEXT:PRINT"[147]":END
1350 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)","DV
1360 PRINT"RUN"
1370 POKE631,13:POKE632,13:POKE198,2:END
1770 PRINT"";
1820 PRINT"[147][158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1830 FORQX=1TO20
1840 PRINT"[221]"TAB(38)"[221]":NEXT
1850 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1860 FORLX=217TO217+26:POKELX,(PEEK(LX)OR128):NEXT
1870 PRINT""
1872 PRINTTAB(FND(1))AN$(X,1):PRINT"[155]"
1880 FORI=2TO18
1882 PRINTTAB(FND(I))AN$(X,I)
1886 NEXT
1900 RETURN
1920 POKE214,23:PRINT
1930 PRINT"[159][208]RESS [209][159] TO QUIT - [193]NY OTHER TO CONTINUE[145]":POKE198,0:KK=0
1940 KK=KK+1:GETA$:IFA$<>""ORKK>1500THENRETURN
1950 GOTO1940
1980 :
1990 :
2000 PRINT"[147]";:IFFHTHENPOKE254,0:SYSBA:GOTO2040
2020 POKE251,64:POKE252,224:POKE253,204
2030 SYSUN
2040 POKE252,224:POKE253,204:SYSHGR:RETURN
2050 RETURN
9010 R=53265:J=128
9020 FORI=59TO63:WAITR,J:POKER,I:NEXT:FORI=63TO56STEP-1:WAITR,J:WAITR,J:POKER,I
9030 NEXT:FORI=56TO59:WAITR,J:WAITR,J:WAITR,J:WAITR,J:POKER,I:NEXT
9040 RETURN
10000 OPEN15,8,15,"S0:LS SLIDESHOW":CLOSE15:SAVE"LS SLIDESHOW",8:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[204] [207] [193] [196] [211] [212] [193] [210]   [211] [204] [201] [196] [197] [211] [200] [207] [215]":Z$(1)="BY THE [204][207][193][196][211][212][193][210] GANG"
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]